Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/scottman/form1.frm

Text File | 1995-09-06 | 18KB | 710 lines

VERSION 2.00
Begin Form Form1
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Scott Maniger"
   ClientHeight    =   2520
   ClientLeft      =   4530
   ClientTop       =   4635
   ClientWidth     =   4215
   Height          =   3210
   Icon            =   FORM1.FRX:0000
   Left            =   4470
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2520
   ScaleWidth      =   4215
   Top             =   4005
   Width           =   4335
   Begin PictureBox Picture1
      BackColor       =   &H00C0C0C0&
      Height          =   495
      Left            =   2160
      ScaleHeight     =   465
      ScaleWidth      =   3105
      TabIndex        =   9
      Top             =   2040
      Width           =   3135
   End
   Begin CommandButton Command2
      Caption         =   "Run Special"
      Height          =   495
      Left            =   1080
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   2040
      Width           =   1095
   End
   Begin CommandButton Command1
      Caption         =   "Run"
      Height          =   495
      Left            =   0
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   2040
      Width           =   1095
   End
   Begin Label Label12
      Alignment       =   2  'Center
      Caption         =   "WSetup"
      Height          =   255
      Left            =   4440
      TabIndex        =   14
      Top             =   1560
      Width           =   735
   End
   Begin Image Image12
      Height          =   480
      Left            =   4560
      Picture         =   FORM1.FRX:0302
      Top             =   1080
      Width           =   480
   End
   Begin Label Label8
      Alignment       =   2  'Center
      Caption         =   "Sys edit"
      Height          =   255
      Left            =   4440
      TabIndex        =   13
      Top             =   720
      Width           =   720
   End
   Begin Image Image8
      Height          =   480
      Left            =   4560
      Picture         =   FORM1.FRX:0604
      Top             =   240
      Width           =   480
   End
   Begin Line Line1
      X1              =   4200
      X2              =   4200
      Y1              =   0
      Y2              =   2040
   End
   Begin Label Label11
      Caption         =   "Dos Win"
      Height          =   255
      Left            =   2640
      TabIndex        =   10
      Top             =   1560
      Width           =   735
   End
   Begin Image Image11
      Height          =   480
      Left            =   2760
      Picture         =   FORM1.FRX:0906
      Top             =   1080
      Width           =   480
   End
   Begin Label Label10
      Alignment       =   2  'Center
      Caption         =   "Print"
      Height          =   255
      Left            =   1800
      TabIndex        =   12
      Top             =   1560
      Width           =   735
   End
   Begin Image Image10
      Height          =   480
      Left            =   1920
      Picture         =   FORM1.FRX:0C08
      Top             =   1080
      Width           =   480
   End
   Begin Label Label9
      Alignment       =   2  'Center
      Caption         =   "PifEditor"
      Height          =   255
      Left            =   960
      TabIndex        =   11
      Top             =   1560
      Width           =   735
   End
   Begin Image Image9
      Height          =   480
      Left            =   1080
      Picture         =   FORM1.FRX:0F0A
      Top             =   1080
      Width           =   480
   End
   Begin Label Label7
      Alignment       =   2  'Center
      Caption         =   "Calculat"
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   1560
      Width           =   735
   End
   Begin Image Image7
      Height          =   480
      Left            =   240
      Picture         =   FORM1.FRX:120C
      Top             =   960
      Width           =   480
   End
   Begin Label Label6
      Alignment       =   2  'Center
      Caption         =   "Sound"
      Height          =   255
      Left            =   3480
      TabIndex        =   7
      Top             =   1560
      Width           =   735
   End
   Begin Image Image6
      Height          =   480
      Left            =   3600
      Picture         =   FORM1.FRX:150E
      Top             =   1080
      Width           =   480
   End
   Begin Label Label5
      Alignment       =   2  'Center
      Caption         =   "Write"
      Height          =   255
      Left            =   3480
      TabIndex        =   6
      Top             =   720
      Width           =   735
   End
   Begin Image Image5
      Height          =   480
      Left            =   3600
      Picture         =   FORM1.FRX:1810
      Top             =   240
      Width           =   480
   End
   Begin Label Label4
      Alignment       =   2  'Center
      Caption         =   "Recorder"
      Height          =   255
      Left            =   2640
      TabIndex        =   5
      Top             =   720
      Width           =   735
   End
   Begin Image Image4
      Height          =   480
      Left            =   2760
      Picture         =   FORM1.FRX:1B12
      Top             =   240
      Width           =   480
   End
   Begin Label Label3
      Alignment       =   2  'Center
      Caption         =   "Pbrush"
      Height          =   255
      Left            =   1800
      TabIndex        =   4
      Top             =   720
      Width           =   735
   End
   Begin Image Image3
      Height          =   480
      Left            =   1920
      Picture         =   FORM1.FRX:1E14
      Top             =   240
      Width           =   480
   End
   Begin Label Label2
      Alignment       =   2  'Center
      Caption         =   "Control"
      Height          =   255
      Left            =   960
      TabIndex        =   3
      Top             =   720
      Width           =   735
   End
   Begin Image Image2
      Height          =   480
      Left            =   1080
      Picture         =   FORM1.FRX:2116
      Top             =   240
      Width           =   480
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackColor       =   &H00FFFF8C&
      Caption         =   "Winfile"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   720
      Width           =   735
   End
   Begin Image Image1
      Height          =   480
      Left            =   240
      Picture         =   FORM1.FRX:2418
      Top             =   240
      Width           =   480
   End
   Begin Menu File
      Caption         =   "&File"
      Begin Menu Run
         Caption         =   "Run"
         Shortcut        =   ^R
      End
      Begin Menu RunSP
         Caption         =   "Run Special"
      End
      Begin Menu pif
         Caption         =   "Make a PIF file"
         Shortcut        =   ^P
      End
      Begin Menu b1
         Caption         =   "-"
      End
      Begin Menu Exit
         Caption         =   "Exit"
         Shortcut        =   %{BKSP}
      End
   End
   Begin Menu op
      Caption         =   "&Options"
      Begin Menu win
         Caption         =   "Windows"
      End
   End
   Begin Menu help
      Caption         =   "&Help"
      Begin Menu about
         Caption         =   "About"
      End
   End
End
Sub about_Click ()
form3.Left = screen.Width / 2 - form3.Width / 2
form3.Top = screen.Height / 2 - form3.Height / 2
form3.Visible = True
End Sub

Sub Command1_Click ()
If z = 1 Then
x = Shell(f1, 1)
End If
If z = 2 Then
x = Shell(f2, 1)
End If
If z